TWorthless = class(TCustomControl)
	private
		FIntegerProp: Integer;
		FStringProp: String;
		FCharProp: Char;
	published
		property IntegerProp: Integer 
                          read FIntegerProp write FIntegerProp;
         property StringProp: String 
                           read FStringProp write FStringProp;
         property CharProp: Char 
                           read FCharProp write FCharProp;
end;
